We need two routines to handle reading the source files. @d Function pro... @extern void source_open(); /* pass in the name of the source file */ extern int source_get(); /* no args; returns the next char or EOF */ @
There are also two global variables maintained for use in error messages and such. @d Global variable dec... @extern char *source_name; /* name of the current file */ extern int source_line; /* current line in the source file */ @| source_name source_line @
@d Global variable def... @char *source_name = NULL; int source_line = 0; @